<% Dim intLunghezza intLunghezza = 200 Dim strSQL strSQL = "select tavvenimento.nazione,tavvenimento.pagamento,tavvenimento.aggiuntive,tavvenimento.web,tavvenimento.telefono,tavvenimento.email,tavvenimento.segnalazioni,tavvenimento.dal,tavvenimento.al,tavvenimento.citta,tavvenimento.provincia,tavvenimento.parolechiave,tavvenimento.titolo,tavvenimento.descrizione,tcategoria.nome as categoria,tavvenimento.cod_tipo as tipo_avv from tavvenimento inner join tcategoria on tcategoria.cod=tavvenimento.cod_categoria where tavvenimento.cod="&Request.Querystring("cod") Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = conn rs.CursorType = 0 rs.LockType = 1 rs.Source = strSQL rs.Open %>
       
  avvenimenti    

finericerca.gif (147 byte) lente.gif (263 byte)

Cerca:

Tra:

 
<% If Not Trim(rs("nazione")) = "" Then %> <% End If %>
FIERE - CONGRESSI - MOSTRE - SEMINARI
Tipo di avvenimento: <%=rs("tipo_avv")%>
-
Titolo dell'avvenimento: <%=rs("titolo")%>
-
Descrizione dell'avvenimento:
 <%=rs("descrizione")%>
-
Data di inizio: <%=rs("dal")%>
-
Data di chiusura: <%=rs("al")%>
-
Nella citta di: <%=rs("citta")%>
-
In provincia di: <%=rs("provincia")%>
-
Nazione della città estera: <%=rs("nazione")%>
-
L'ingresso è a pagamento?

<%=rs("pagamento")%>

-
Il telefono per le informazioni: <%=rs("telefono")%>
-
Per informazioni e prenotazioni scrivere a: "><%=rs("email")%>
-
Altre informazioni: <%=rs("aggiuntive")%>
-
Sito internet dell'avvenimento:
 http://"><%=rs("web")%>